home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8409.arc / DASCON4.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  640b  |  22 lines
  1. 10 REM A/D 4 CHANNEL FREE SCAN (MODE 0)
  2. 20 REM PRINTING OUT CONTINUOUS DATA ON A/D CHANNEL 0 & 1
  3. 30 CLEAR,62463!
  4. 40 DEF SEG=0
  5. 50 SG=256*PEEK(&H511)+PEEK(&H510)
  6. 60 SG=62463!/16+SG
  7. 70 DEF SEG = SG
  8. 80 BLOAD "DASCON1.BIN",0
  9. 90 DIM DIO%(8)
  10. 100 MD%= 0
  11. 110 CH%=0
  12. 120 DIO%(0)=0:DIO%(1)=0
  13. 130 BASADR%=768
  14. 140 DEF SEG = SG
  15. 150 DASCON1 = 0
  16. 160 CALL DASCON1 (MD%,CH%,DIO%(0),DIO%(1),BASADR%)
  17. 170 IF DIO%(0)>=500 THEN DIO%(0)=1 ELSE DIO%(0)=0
  18. 180 MD%=9
  19. 190 CH%=0
  20. 200 CALL DASCON1 (MD%,CH%,DIO%(0),DIO%(1),BASADR%)
  21. 210 GOTO 100
  22.